home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #117 (1991-03)(Amiga User Group Deutschland e.V.).zip / Franz PD Disk #117 (1991-03)(Amiga User Group Deutschland e.V.).adf / LOGIC / source.S < prev    next >
Text File  |  1989-07-03  |  16KB  |  892 lines
  1. execbase       = 4
  2. ;---< EXEC >---;
  3. openlib        = -552
  4. closelib       = -414
  5. getmsg         = -372
  6. waitport       = -384
  7. findtask       = -294
  8. replymsg       = -378
  9. allocmem       = -198
  10. freemem        = -210
  11. ;---< INTUITION >---;
  12. openwindow     = -204
  13. closewindow    = -072
  14. refreshgadget  = -222
  15. setwindowtitle = -276
  16. setmenustrip   = -264
  17. activatewin    = -450
  18. addgadget      = -042
  19. ;---< GRAPHICS >---;
  20. setapen        = -342
  21. setbpen        = -348
  22. setdrmd        = -354
  23. rectfill       = -306
  24. draw           = -246
  25. move           = -240
  26. text           = -060
  27. blttemplate    = -036
  28. ;
  29. print:    macro
  30. move.l    gfxbase,a6
  31. move.l    rport,a1
  32. move.l    ?1,d0
  33. move.l    ?2,d1
  34. jsr    move(a6)
  35. move.l    gfxbase,a6
  36. move.l    rport,a1
  37. move.l    ?4,a0
  38. move.l    ?3,d0
  39. jsr    text(a6)
  40. endm
  41. box:    macro
  42. move.l    gfxbase,a6
  43. move.l    rport,a1
  44. move.l    ?5,d0
  45. jsr    setapen(a6)
  46. move.l    gfxbase,a6
  47. move.l    rport,a1
  48. move    ?1,d0
  49. move    ?2,d1
  50. move    ?3,d2
  51. move    ?4,d3
  52. jsr    rectfill(a6)
  53. move.l    gfxbase,a6
  54. move.l    rport,a1
  55. moveq    #0,d0
  56. jsr    setapen(a6)
  57. move.l    gfxbase,a6
  58. move.l    rport,a1
  59. move    ?1,d0
  60. add.l    #2,d0
  61. move    ?2,d1
  62. add.l    #1,d1
  63. move    ?3,d2
  64. sub.l    #2,d2
  65. move    ?4,d3
  66. sub.l    #1,d3
  67. jsr    rectfill(a6)
  68. endm
  69. ;
  70. movem.l    d1-d7/a0-a6,-(a7)
  71. move.l    execbase,a6
  72. move.l    #0,a1
  73. jsr    findtask(a6)
  74. move.l    d0,a2
  75. move.l    #0,starts
  76. tst.l    $ac(a2)
  77. bne    fromcli
  78. lea    $5c(a2),a0
  79. jsr    waitport(a6)
  80. lea    $5c(a2),a0
  81. jsr    getmsg(a6)
  82. move.l    d0,starts
  83. fromcli:
  84. bsr    openint
  85. beq    end1
  86. bsr    openwin
  87. beq    end2
  88. bsr    memorya
  89. beq    end3
  90. bsr    initwin
  91. bsr    copyright
  92. bsr    haupt
  93. bsr    memoryq
  94. end3:
  95. bsr    closewin
  96. end2:
  97. bsr    closeint
  98. end1:
  99. moveq    #0,d0
  100. cmp.l    #0,starts
  101. beq    nowb
  102. move.l    execbase,a6
  103. move.l    starts,a1
  104. jsr    replymsg(a6)
  105. moveq    #2,d0
  106. nowb:
  107. movem.l    (a7)+,d1-d7/a0-a6
  108. rts
  109. ;
  110. memorya:
  111. move.l    execbase,a6
  112. moveq    #80,d0
  113. moveq    #3,d1
  114. jsr    allocmem(a6)
  115. beq    end4
  116. move.l    d0,memory
  117. move.l    d0,image3+10
  118. lea    daten3,a0
  119. move.l    d0,a1
  120. moveq    #19,d0
  121. colol:
  122. move.l    (a0)+,(a1)+
  123. dbra    d0,colol
  124. moveq    #1,d0
  125. end4:
  126. tst.l    d0
  127. rts
  128. ;
  129. memoryq:
  130. move.l    execbase,a6
  131. move.l    memory,a1
  132. moveq    #80,d0
  133. jsr    freemem(a6)
  134. rts
  135. ;
  136. haupt:
  137. move.l    execbase,a6
  138. move.l    handle,a0
  139. move.l    86(a0),a0
  140. jsr    waitport(a6)
  141. move.l    handle,a0
  142. move.l    86(a0),a0
  143. jsr    getmsg(a6)
  144. beq    haupt
  145. move.l    d0,a0
  146. move    22(a0),d0
  147. cmp    #8,d0
  148. beq    button
  149. cmp    #$40,d0
  150. beq    gadgets
  151. cmp    #$100,d0
  152. beq    menus
  153. cmp    #$200,d0
  154. bne    haupt
  155. rts
  156. ;
  157. menus:
  158. move    $18(a0),d0
  159. cmp    #-1,d0
  160. beq    haupt
  161. lsr    #5,d0
  162. and    #$3f,d0
  163. cmp    #2,d0
  164. bne    nquit
  165. rts
  166. nquit:
  167. cmp    #1,d0
  168. beq    haupt
  169. cmp    #0,d0
  170. bne    ncopy
  171. bsr    copyright
  172. bra    haupt
  173. ncopy:
  174. bra    haupt
  175. ;
  176. gadgets:
  177. move.l    28(a0),a0
  178. move    38(a0),d0
  179. cmp.b    #2,d0
  180. bne    nnew
  181. lea    feld,a0
  182. lea    feld+9,a1
  183. moveq    #8,d0
  184. plop3:
  185. move.b    (a1)+,(a0)+
  186. dbra    d0,plop3
  187. lea    undo,a0
  188. move.l    #19,d0
  189. plop6:
  190. move.b    #10,(a0)+
  191. dbra    d0,plop6
  192. bsr    darstell
  193. bra    haupt
  194. nnew:
  195. cmp    #1,d0
  196. bne    icon
  197. cmp.b    #10,undo
  198. beq    haupt
  199. move.b    undo,d7
  200. lea    undo,a1
  201. lea    undo+1,a0
  202. move.l    #18,d0
  203. plop5:
  204. move.b    (a0)+,(a1)+
  205. dbra    d0,plop5
  206. move.b    #10,undo+19
  207. moveq    #0,d0
  208. move.b    d7,d0
  209. bra    cool
  210. bra    haupt
  211. icon:
  212. cmp    #3,d0
  213. bne    haupt
  214. bsr    icons
  215. bra    haupt
  216. ;
  217. button:
  218. btst    #6,$bfe001
  219. bne    haupt
  220. moveq    #0,d0
  221. moveq    #0,d1
  222. move.l    handle,a2
  223. move    12(a2),d1
  224. move    14(a2),d0
  225. sub.l    #6,d0
  226. sub.l    #21,d1
  227. cmp    #0,d0
  228. blt    haupt
  229. cmp    #150,d0
  230. bgt    haupt
  231. cmp    #0,d1
  232. blt    haupt
  233. cmp    #75,d1
  234. bgt    haupt
  235. divu    #50,d0
  236. and.l    #$f,d0
  237. divu    #25,d1
  238. and.l    #$f,d1
  239. move.l    d0,d6
  240. move.l    d1,d7
  241. mulu    #3,d0
  242. add.l    d0,d1
  243. lea    feld,a5
  244. bsr    save
  245. add.l    d1,a5
  246. move.b    (a5),d0
  247. cmp.b    #0,d0
  248. beq    haupt
  249. move.l    d6,d0
  250. mulu    #3,d0
  251. add.l    d7,d0
  252. cool:
  253. mulu    #9,d0
  254. lea    no1,a4
  255. lea    feld,a5
  256. add.l    d0,a4
  257. moveq    #8,d1
  258. plop:
  259. move.b    (a4)+,d2
  260. move.b    (a5),d3
  261. cmp.b    #0,d2
  262. beq    noset
  263. moveq    #0,d4
  264. cmp.b    #1,d3
  265. beq    noone
  266. moveq    #1,d4
  267. noone:
  268. move.b    d4,d3
  269. noset:
  270. move.b    d3,(a5)+
  271. dbra    d1,plop
  272. bsr    darstell
  273. bsr    testen
  274. cmp.b    #0,d0
  275. beq    haupt
  276. lea    feld,a0
  277. lea    feld+9,a1
  278. moveq    #8,d2
  279. plop7:
  280. move.b    (a1)+,(a0)+
  281. dbra    d2,plop7
  282. lea    undo,a0
  283. move.l    #19,d2
  284. plop8:
  285. move.b    #10,(a0)+
  286. dbra    d2,plop8
  287. move.l    d0,d7
  288. bsr    darstell
  289. cmp.b    #1,d7
  290. bne    win
  291. move.l    gfxbase,a6
  292. move.l    rport,a1
  293. moveq    #2,d0
  294. jsr    setapen(a6)
  295. move.l    gfxbase,a6
  296. move.l    rport,a1
  297. moveq    #0,d0
  298. jsr    setdrmd(a6)
  299. print    #21,#19,#16,#wins
  300. move.l    gfxbase,a6
  301. move.l    rport,a1
  302. moveq    #1,d0
  303. jsr    setapen(a6)
  304. print    #19,#18,#16,#wins
  305. bra    haupt
  306. win:
  307. move.l    gfxbase,a6
  308. move.l    rport,a1
  309. moveq    #2,d0
  310. jsr    setapen(a6)
  311. move.l    gfxbase,a6
  312. move.l    rport,a1
  313. moveq    #0,d0
  314. jsr    setdrmd(a6)
  315. print    #21,#19,#16,#lost
  316. move.l    gfxbase,a6
  317. move.l    rport,a1
  318. moveq    #1,d0
  319. jsr    setapen(a6)
  320. print    #19,#18,#16,#lost
  321. bra    haupt
  322. ;
  323. save:
  324. movem.l    d0-d7/a0-a6,-(a7)
  325. lea    undo+18,a0
  326. lea    undo+19,a1
  327. move.l    #18,d0
  328. plop4:
  329. move.b    (a0),(a1)
  330. sub.l    #1,a1
  331. sub.l    #1,a0
  332. dbra    d0,plop4
  333. movem.l    (a7)+,d0-d7/a0-a6
  334. move.b    d1,undo
  335. rts
  336. ;
  337. testen:
  338. lea    feld,a5
  339. moveq    #8,d0
  340. moveq    #0,d1
  341. plop2:
  342. add.b    (a5)+,d1
  343. dbra    d0,plop2
  344. cmp.b    #8,d1
  345. bne    ngew
  346. cmp.b    #0,feld+4
  347. bne    ngew
  348. moveq    #1,d0
  349. bra    ghtz
  350. ngew:
  351. cmp.b    #0,d1
  352. bne    nver
  353. moveq    #2,d0
  354. bra    ghtz
  355. nver:
  356. moveq    #0,d0
  357. ghtz:
  358. rts
  359. ;
  360. openint:
  361. move.l    execbase,a6
  362. lea    intname,a1
  363. moveq    #0,d0
  364. jsr    openlib(a6)
  365. move.l    d0,intbase
  366. move.l    d0,a0
  367. move.l    $64(a0),gfxbase
  368. tst.l    d0
  369. rts
  370. ;
  371. openwin:
  372. move.l    intbase,a6
  373. lea    window,a0
  374. jsr    openwindow(a6)
  375. move.l    d0,handle
  376. move.l    d0,a0
  377. move.l    50(a0),rport
  378. tst.l    d0
  379. rts
  380. ;
  381. initwin:
  382. move.l    intbase,a6
  383. lea    gadget3,a1
  384. move.l    handle,a0
  385. moveq    #0,d0
  386. jsr    addgadget(a6)
  387. move.l    gfxbase,a6
  388. move.l    rport,a1
  389. moveq    #3,d0
  390. jsr    setapen(a6)
  391. move.l    gfxbase,a6
  392. move.l    rport,a1
  393. move    #4,d0
  394. move    #11,d1
  395. move    #157,d2
  396. move    #113,d3
  397. jsr    rectfill(a6)
  398. bsr    darstell
  399. move.l    intbase,a6
  400. lea    gadget3,a0
  401. move.l    handle,a1
  402. move.l    #0,a2
  403. jsr    refreshgadget(a6)
  404. move.l    intbase,a6
  405. move.l    handle,a0
  406. move.l    #-1,a1
  407. lea    screentits,a2
  408. jsr    setwindowtitle(a6)
  409. move.l    intbase,a6
  410. move.l    handle,a0
  411. lea    menu1,a1
  412. jsr    setmenustrip(a6)
  413. rts
  414. ;
  415. icons:
  416. move.l    handle,a5
  417. move    4(a5),iwindow
  418. move    6(a5),iwindow+2
  419. move    4(a5),window
  420. move    6(a5),window+2
  421. bsr    closewin
  422. move.l    intbase,a6
  423. lea    iwindow,a0
  424. jsr    openwindow(a6)
  425. move.l    d0,ihandle
  426. move.l    d0,a0
  427. move.l    50(a0),rport
  428. move.l    gfxbase,a6
  429. move.l    rport,a1
  430. moveq    #3,d0
  431. jsr    setapen(a6)
  432. move.l    gfxbase,a6
  433. move.l    rport,a1
  434. move    #4,d0
  435. move    #11,d1
  436. move    #65,d2
  437. move    #33,d3
  438. jsr    rectfill(a6)
  439. move.l    intbase,a6
  440. lea    igadget,a0
  441. move.l    ihandle,a1
  442. move.l    #0,a2
  443. jsr    refreshgadget(a6)
  444. lkjh3:
  445. move.l    execbase,a6
  446. move.l    ihandle,a0
  447. move.l    86(a0),a0
  448. jsr    waitport(a6)
  449. move.l    ihandle,a0
  450. move.l    86(a0),a0
  451. jsr    getmsg(a6)
  452. beq    lkjh3
  453. move.l    d0,a0
  454. move    22(a0),d0
  455. cmp    #$40,d0
  456. bne    lkjh3
  457. move.l    28(a0),a0
  458. move    38(a0),d0
  459. cmp    #1,d0
  460. bne    lkjh3
  461. move.l    intbase,a6
  462. move.l    ihandle,a0
  463. jsr    closewindow(a6)
  464. ;
  465. bsr    openwin
  466. bsr    initwin
  467. rts
  468. ;
  469. darstell:
  470. lea    feld,a5
  471. box    #10,#23,#50,#43,#1
  472. cmp.b    #1,(a5)+
  473. beq    nf1
  474. box    #10,#23,#50,#43,#2
  475. nf1:
  476. box    #10,#48,#50,#68,#1
  477. cmp.b    #1,(a5)+
  478. beq    nf2
  479. box    #10,#48,#50,#68,#2
  480. nf2:
  481. box    #10,#73,#50,#93,#1
  482. cmp.b    #1,(a5)+
  483. beq    nf3
  484. box    #10,#73,#50,#93,#2
  485. nf3:
  486. box    #60,#23,#100,#43,#1
  487. cmp.b    #1,(a5)+
  488. beq    nf4
  489. box    #60,#23,#100,#43,#2
  490. nf4:
  491. box    #60,#48,#100,#68,#1
  492. cmp.b    #1,(a5)+
  493. beq    nf5
  494. box    #60,#48,#100,#68,#2
  495. nf5:
  496. box    #60,#73,#100,#93,#1
  497. cmp.b    #1,(a5)+
  498. beq    nf6
  499. box    #60,#73,#100,#93,#2
  500. nf6:
  501. box    #110,#23,#150,#43,#1
  502. cmp.b    #1,(a5)+
  503. beq    nf7
  504. box    #110,#23,#150,#43,#2
  505. nf7:
  506. box    #110,#48,#150,#68,#1
  507. cmp.b    #1,(a5)+
  508. beq    nf8
  509. box    #110,#48,#150,#68,#2
  510. nf8:
  511. box    #110,#73,#150,#93,#1
  512. cmp.b    #1,(a5)+
  513. beq    nf9
  514. box    #110,#73,#150,#93,#2
  515. nf9:
  516. move.l    gfxbase,a6
  517. move.l    rport,a1
  518. moveq    #3,d0
  519. jsr    setapen(a6)
  520. move.l    gfxbase,a6
  521. move.l    rport,a1
  522. move    #4,d0
  523. move    #11,d1
  524. move    #157,d2
  525. move    #21,d3
  526. jsr    rectfill(a6)
  527. rts
  528. ;
  529. closewin:
  530. move.l    intbase,a6
  531. move.l    handle,a0
  532. jsr    closewindow(a6)
  533. rts
  534. ;
  535. closeint:
  536. move.l    execbase,a6
  537. move.l    intbase,a1
  538. jsr    closelib(a6)
  539. rts
  540. ;
  541. copyright:
  542. move.l    intbase,a6
  543. lea    cwindow,a0
  544. jsr    openwindow(a6)
  545. move.l    d0,chandle
  546. move.l    d0,a0
  547. move.l    rport,r2port
  548. move.l    50(a0),rport
  549. tst.l    d0
  550. beq    ende4
  551. move.l    gfxbase,a6
  552. move.l    rport,a1
  553. moveq    #3,d0
  554. jsr    setapen(a6)
  555. move.l    gfxbase,a6
  556. move.l    rport,a1
  557. move    #4,d0
  558. move    #2,d1
  559. move    #235,d2
  560. move    #97,d3
  561. jsr    rectfill(a6)
  562. move.l    execbase,a6
  563. move.l    #1428,d0
  564. moveq    #3,d1
  565. jsr    allocmem(a6)
  566. move.l    d0,speicher
  567. tst.l    d0
  568. beq    ende5
  569. lea    gfx,a1
  570. move.l    d0,a0
  571. move.l    #356,d0
  572. plop9:
  573. move.l    (a1)+,(a0)+
  574. dbra    d0,plop9
  575. move.l    gfxbase,a6
  576. move.l    rport,a1
  577. moveq    #0,d0
  578. jsr    setdrmd(a6)
  579. move.l    gfxbase,a6
  580. move.l    rport,a1
  581. moveq    #2,d0
  582. jsr    setapen(a6)
  583. move.l    gfxbase,a6
  584. move.l    speicher,a0
  585. moveq    #0,d0
  586. moveq    #28,d1
  587. move.l    rport,a1
  588. moveq    #11,d2
  589. moveq    #6,d3
  590. move    #224,d4
  591. moveq    #51,d5
  592. jsr    blttemplate(a6)
  593. move.l    gfxbase,a6
  594. move.l    rport,a1
  595. moveq    #1,d0
  596. jsr    setapen(a6)
  597. move.l    gfxbase,a6
  598. move.l    speicher,a0
  599. moveq    #0,d0
  600. moveq    #28,d1
  601. move.l    rport,a1
  602. moveq    #9,d2
  603. moveq    #5,d3
  604. move    #224,d4
  605. moveq    #51,d5
  606. jsr    blttemplate(a6)
  607. move.l    gfxbase,a6
  608. move.l    rport,a1
  609. moveq    #2,d0
  610. jsr    setapen(a6)
  611. print    #121-[4*[ctex2-ctex1]],#65,#ctex2-ctex1,#ctex1
  612. print    #121-[4*[ctex3-ctex2]],#75,#ctex3-ctex2,#ctex2
  613. print    #121-[4*[ctex4-ctex3]],#85,#ctex4-ctex3,#ctex3
  614. print    #121-[4*[ctex5-ctex4]],#95,#ctex5-ctex4,#ctex4
  615. move.l    gfxbase,a6
  616. move.l    rport,a1
  617. moveq    #1,d0
  618. jsr    setapen(a6)
  619. print    #119-[4*[ctex2-ctex1]],#64,#ctex2-ctex1,#ctex1
  620. print    #119-[4*[ctex3-ctex2]],#74,#ctex3-ctex2,#ctex2
  621. print    #119-[4*[ctex4-ctex3]],#84,#ctex4-ctex3,#ctex3
  622. print    #119-[4*[ctex5-ctex4]],#94,#ctex5-ctex4,#ctex4
  623. lkjh:
  624. move.l    execbase,a6
  625. move.l    chandle,a0
  626. move.l    86(a0),a0
  627. jsr    getmsg(a6)
  628. tst.l    d0
  629. beq    lkjh
  630. move.l    d0,a0
  631. move    22(a0),d0
  632. cmp    #$40,d0
  633. bne    lkjh
  634. move.l    28(a0),a0
  635. move    38(a0),d0
  636. cmp    #1,d0
  637. bne    lkjh
  638. move.l    execbase,a6
  639. move.l    speicher,a1
  640. move.l    #1428,d0
  641. jsr    freemem(a6)
  642. ende5:
  643. move.l    intbase,a6
  644. move.l    chandle,a0
  645. jsr    closewindow(a6)
  646. ende4:
  647. move.l    r2port,rport
  648. rts
  649. ;
  650. intbase:  dc.l 0
  651. gfxbase:  dc.l 0
  652. memory:      dc.l 0
  653. rport:      dc.l 0
  654. starts:      dc.l 0
  655. handle:   dc.l 0
  656. r2port:      dc.l 0
  657. speicher: dc.l 0
  658. chandle:  dc.l 0
  659. ihandle:  dc.l 0
  660. intname:  dc.b "intuition.library",0
  661. ;
  662. window:
  663. dc.w    60,20,162,116
  664. dc.b    3,1
  665. dc.l    $348,$100e,gadget,0,title,0,0
  666. dc.w    0,0,0,0,1
  667. cwindow:
  668. dc.w    200,50,240,100
  669. dc.b    1,1
  670. dc.l    $40,$11000,cgadget,0,0,0,0
  671. dc.w    0,0,0,0,1
  672. iwindow:
  673. dc.w    10,5,70,36
  674. dc.b    0,1
  675. dc.l    $40,$11002,igadget,0,title2,0,0
  676. dc.w    0,0,0,0,1
  677. cgadget:
  678. dc.l    0
  679. dc.w    0,0,240,100,3,3,1
  680. dc.l    0,0,0,0,0
  681. dc.w    1,0,0
  682. igadget:
  683. dc.l    0
  684. dc.w    10,14,48,16,0,3,1
  685. dc.l    irend,0,itext,0,0
  686. dc.w    1,0,0
  687. itext:
  688. dc.b    1,0,0,0
  689. dc.w    8,4
  690. dc.l    0,itex,0
  691. itex:    dc.b "CONT",0,0
  692. irend:
  693. dc.l    0
  694. dc.b    1,0,1,9
  695. dc.l    ikord,irend2
  696. irend2:
  697. dc.l    0
  698. dc.b    2,0,1,5
  699. dc.l    ikord2,0
  700. ikord:
  701. dc.w    -2,-1,49,-1,49,16,-2,16,-2,-1,48,-1,48,16,-1,16,-1,-1
  702. ikord2:
  703. dc.w    0,17,51,17,51,0,50,0,50,17
  704. ;
  705. title:
  706. dc.b "LOGIC2",0,0
  707. title2:
  708. dc.b "LOGIC II",0,0
  709. screentits:
  710. dc.b " LOGIC II   ",169,"´12-18-1990 by Thomas Jansen "
  711. dc.b "only for H.Franz ",0
  712. wins:    dc.b "You have win ..."
  713. lost:    dc.b "You have lost .."
  714. ctex1:    dc.b "LOGIC II is Public-Domain" 
  715. ctex2:    dc.b "This Version is only" 
  716. ctex3:    dc.b "for Holger Franz"
  717. ctex4:    dc.b "Press the RM-Button" 
  718. ctex5:
  719. ;
  720. gadget:
  721. dc.l    gadget2
  722. dc.w    8,98,68,13,2,3,1
  723. dc.l    render,render2,text1,0,0
  724. dc.w    1,0,0
  725. text1:
  726. dc.b    1,0,0,0
  727. dc.w    18,3
  728. dc.l    0,tex,0
  729. tex:    dc.b "BACK",0,0
  730. gadget2:
  731. dc.l    0
  732. dc.w    84,98,68,13,2,3,1
  733. dc.l    render,render2,text2,0,0
  734. dc.w    2,0,0
  735. text2:
  736. dc.b    1,0,0,0
  737. dc.w    22,3
  738. dc.l    0,tex2,0
  739. tex2:    dc.b "NEW",0
  740. gadget3:
  741. dc.l    0
  742. dc.w    -76,0,24,10,$14,$41,1
  743. dc.l    image3,0,0,0,0
  744. dc.w    3,0,0
  745. image3:
  746. dc.w    -4,0,28,10,0
  747. dc.l    daten3
  748. dc.b    3,0
  749. dc.l    0
  750. daten3:
  751. dc.l    $cffffff0,$cc000030,$cc000030,$cc000030,$cc000030
  752. dc.l    $cc001f30,$cc001f30,$cc001f30,$cc000030,$cffffff0
  753. dc.l    $00000000,$03ffffc0,$03ffffc0,$03ffffc0,$03ff8000
  754. dc.l    $03ff8000,$03ff8000,$03ff8000,$03ff8000,$00000000
  755. render:
  756. dc.l    0
  757. dc.b    1,0,1,9
  758. dc.l    kords,render3
  759. render2:
  760. dc.l    0
  761. dc.b    0,0,1,9
  762. dc.l    kords,render3
  763. render3:
  764. dc.l    0
  765. dc.b    2,0,1,5
  766. dc.l    kords2,0
  767. kords:
  768. dc.w    -2,-1,69,-1,69,13,-2,13,-2,-1,68,-1,68,13,-1,13,-1,-1
  769. kords2:
  770. dc.w    0,14,71,14,71,0,70,0,70,14
  771. menu1:
  772. dc.l 0
  773. dc.w    10,0,64,10,1
  774. dc.l    men1tex,menui3,0,0
  775. men1tex:
  776. dc.b    "PROGRAM",0
  777. menui3:
  778. dc.l    menui4
  779. dc.w    -10,0,112,10,$52
  780. dc.l    0,mi3tex,0
  781. dc.w    0,0,0,0,0
  782. mi3tex:
  783. dc.b    0,1,0,0
  784. dc.w    4,1
  785. dc.l    0,mi3text,0
  786. mi3text:
  787. dc.b "Copyright",0
  788. menui4:
  789. dc.l    menui5
  790. dc.w    -10,3,112,10,$d2
  791. dc.l    0,mi4tex,0
  792. dc.w    0,0,0,0,0
  793. mi4tex:
  794. dc.b    3,1,0,0
  795. dc.w    4,1
  796. dc.l    0,mi4text,mi4btex
  797. mi4btex:
  798. dc.b    3,1,0,0
  799. dc.w    3,1
  800. dc.l    0,mi4text,0
  801. mi4text:
  802. dc.b "_____________",0
  803. menui5:
  804. dc.l    0
  805. dc.w    -10,13,112,10,$52
  806. dc.l    0,mi5tex,0
  807. dc.w    0,0,0,0,0
  808. mi5tex:
  809. dc.b    0,1,0,0
  810. dc.w    4,1
  811. dc.l    0,mi5text,0
  812. mi5text:
  813. dc.b    "Quit",0,0
  814. ;
  815. feld:
  816. dc.b    0,0,0,0,1,0,0,0,0
  817. dc.b    0,0,0,0,1,0,0,0,0
  818. no1:
  819. dc.b    1,1,0,1,1,0,0,0,0
  820. dc.b    1,1,1,0,1,0,0,0,0
  821. dc.b    0,1,1,0,1,1,0,0,0
  822. dc.b    1,0,0,1,1,0,1,0,0
  823. dc.b    0,1,0,1,1,1,0,1,0
  824. dc.b    0,0,1,0,1,1,0,0,1
  825. dc.b    0,0,0,1,1,0,1,1,0
  826. dc.b    0,0,0,0,1,0,1,1,1
  827. dc.b    0,0,0,0,1,1,0,1,1,0
  828. undo:
  829. blk.b    20,10
  830. gfx:
  831. dc.l $00000000,$00007F00,$00F00003,$800FC007,$0000000F,$FFFE0000
  832. dc.l $00000000,$00000000,$0000FF80,$03FC001F,$F81FE01F,$E000001F
  833. dc.l $FFFF0000,$00000000,$00000000,$0001FF80,$0FFF007F,$FC1FE07F
  834. dc.l $F800001F,$FFFF0000,$00000000,$00000000,$0000FF00,$1FFF80FF
  835. dc.l $FE1FE0FF,$FC00001F,$FFFF0000,$00000000,$00000000,$00007E00
  836. dc.l $1FFFC0FC,$7E0FC0FF,$FE00000F,$E0FE0000,$00000000,$00000000
  837. dc.l $00003E00,$3F3FC1F8,$3E0FC1F8,$FE000007,$E0FC0000,$00000000
  838. dc.l $00000000,$00003E00,$3E1FE1F0,$1E0FC1F0,$3E000007,$E0FC0000
  839. dc.l $00000000,$00000000,$00003E00,$7E0FE3F0,$0E0FC3F0,$3E000007
  840. dc.l $E0FC0000,$00000000,$00000000,$00003E00,$7E0FE3F0,$060FC3F0
  841. dc.l $1E000007,$E0FC0000,$00000000,$00000000,$00003E00,$FE07F7F0
  842. dc.l $000FC3F0,$0C000007,$E0FC0000,$00000000,$00000000,$00003E00
  843. dc.l $FE07F7F0,$000FC7F0,$00000007,$E0FC0000,$00000000,$00000000
  844. dc.l $00003E00,$FE07F7F0,$000FC7F0,$00000007,$E0FC0000,$00000000
  845. dc.l $00000000,$00003E00,$FE07F7F0,$7F0FC7F0,$00000007,$E0FC0000
  846. dc.l $00000000,$00000000,$00003E00,$FE07F7F0,$FF8FC7F0,$00000007
  847. dc.l $E0FC0000,$00000000,$00000000,$00003E00,$7F07F7F1,$FF8FC7F8
  848. dc.l $00000007,$E0FC0000,$00000000,$00000000,$00003E00,$7F07E3F0
  849. dc.l $FF0FC3F8,$00000007,$E0FC0000,$00000000,$00000000,$00003E02
  850. dc.l $7F87E3F8,$3E0FC3FC,$0C000007,$E0FC0000,$00000000,$00000000
  851. dc.l $00003E06,$3F87E3F8,$3E0FC3FF,$1E000007,$E0FC0000,$00000000
  852. dc.l $00000000,$00003E0E,$3FCFC1FC,$3E0FC1FF,$FE000007,$E0FC0000
  853. dc.l $00000000,$00000000,$00007F1E,$1FFFC0FF,$FC0FC1FF,$FC00000F
  854. dc.l $E0FE0000,$00000000,$00000000,$00007FFE,$0FFF80FF,$FC1FE0FF
  855. dc.l $FC00001F,$FFFF0000,$00000000,$00000000,$0000FFFE,$07FF007F
  856. dc.l $F81FE07F,$F800001F,$FFFF0000,$00000000,$00000000,$0000FFFC
  857. dc.l $01FC001F,$E00FC01F,$E000000F,$FFFE0000,$00000000,$00000000
  858. dc.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000
  859. dc.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000
  860. dc.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000
  861. dc.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000
  862. dc.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000
  863. dc.l $00000000,$00000000,$00000000,$00000000,$1C000000,$0007FF01
  864. dc.l $80000000,$00000000,$000001F0,$00000000,$00000000,$3C000000
  865. dc.l $000FFF87,$80000000,$00000000,$000003F8,$00000000,$00000000
  866. dc.l $7C000000,$001FFFCF,$80000000,$00000000,$000003F8,$00000000
  867. dc.l $00000000,$FC000000,$001FFFCF,$80000000,$00000000,$000001F0
  868. dc.l $00000000,$00000000,$3C000000,$001EFBC7,$80000000,$00000000
  869. dc.l $000000F0,$00000000,$00000000,$3CE1F0C0,$001CF9C7,$8C03E018
  870. dc.l $C600603F,$000000F0,$1803181F,$81E03180,$3FF3F9E0,$0018F8C7
  871. dc.l $BE07F079,$EF01F87F,$800000F0,$7E0F3C3F,$C7F0F3C0,$3FFBF9E0
  872. dc.l $0000F807,$FF0FF8FF,$FF83FCFF,$800000F0,$FF1FFE7F,$CF39FFE0
  873. dc.l $3FF9F0E0,$0000F807,$FF1F7CFF,$FFC73CF9,$000000F1,$CF3FFE7C
  874. dc.l $8F3BFFE0,$3E78F1C0,$0000F807,$DF1E3C7D,$F7C63EFC,$000000F1
  875. dc.l $8F9F7E7E,$1FF9F7E0,$3E78F9C0,$0000F807,$8F1E3C78,$E3C03EFE
  876. dc.l $000000F0,$0F9E3E7F,$1FF9E3E0,$3E787B80,$0000F807,$8F1E3C78
  877. dc.l $E3C1FE7F,$000000F0,$7F9E3E3F,$9FF1E3E0,$3E787F80,$0000F807
  878. dc.l $8F1E3C78,$E3C7FE3F,$800038F1,$FF9E3E1F,$DF01E3E0,$3E783F80
  879. dc.l $0000F807,$8F1E3C78,$E3C73E1F,$80007CF1,$CF9E3E0F,$CF09E3E0
  880. dc.l $3E783F00,$0000F807,$8F0F7878,$E3CF3ECF,$80007CF3,$CF9E3E67
  881. dc.l $CFF9E3E0,$3FF03F00,$0001FC0F,$8F0FF878,$E3CF3EEF,$80007FF3
  882. dc.l $CF9E3E77,$C7F9E3E0,$3FE01F00,$0003FE1F,$DF87F0F9,$F3E7FE7F
  883. dc.l $00003FE1,$FFBF3F3F,$87F3F3F0,$07801E00,$0001FC1F,$DF83C0F9
  884. dc.l $F3E3F63E,$00000FC0,$FD9E1E1F,$01E1E1E0,$0000DE00,$00000000
  885. dc.l $00000000,$00000000,$00000000,$00000000,$00000000,$0001DC00
  886. dc.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000
  887. dc.l $0001FC00,$00000000,$00000000,$00000000,$00000000,$00000000
  888. dc.l $00000000,$0001F800,$00000000,$00000000,$00000000,$00000000
  889. dc.l $00000000,$00000000,$0000F000,$00000000,$00000000,$00000000
  890. dc.l $00000000,$00000000,$00000000
  891. gfxe:
  892.